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000 :* DIGITAL IPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
44 8 . ALL RIGHTS RESERVE * 
° , ® 
0000 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sores * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Dice Nee AND WITH THE * 
4 \¢ ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 13 ;* COPIES TKEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1? ;* TRANSFERRED. * 
3* ® 
0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9000 19 + CORPORATION. ” | 
22 ® 
0000 21 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 $$ ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
F * 
0000 24 ;* * 
0000 25 RT ee ee ee ee ee eee 
0000 26 ; 
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+ 
Facility: RMS 
Abstract. 


This module communicates with the File Access Listener (FAL) at the 
remote node to open the specified file. 


Environment: VAX/VMS, executive mode 


: James A. Krycka, Creation Date: 09-DEC-1977 


Modified By: 


V03-010 JEJ0038 J E Johnson 19-Jun-1984 
Check for VAX/VMS or VAXELAN partner before trying to 
use the system specific DAP fields. 


V03-009 JAK0142 J A Krycka 10-APR-1984 
Fix inconsistency in handling MRS value when dealing with a 
ti. FAL that uses a stream-based file system. 


V03-008 JAK0138 Kr 28-MAR-1984 
Call modified NTSERCH. tere routine with a parameter. 
General cleanup. 


v03-007 LJK0254 Lawrence J. Kena 6-Dec-1983 
Change LIBSCVT_OTB reference to *PILSCVT OTB. 

V03-006 KRM0091 arl Malik 18-Mar-1983 
Add support for STMLE cad STMCR file formats. 

V03-005 KBT0411 30-Nov-1982 
Change IFBSW_ DEVBUES iz” x 18 t oDEVBUF SIZ. 

V03-004 JAK0102 J A Krycka 09-OCT-1982 
Fix bug in converting | AP OWNER value into binary format. 
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| i $3 | 

| $0 sf Include Fil 

; Include es: 

000 ia 3 
| a0 ft SNAPPLGDEF Define DAP l bol | 
| ; Define rologue symbols 
0000 75 SDAPHDRDEF 3; Define DAP pessese header 
0000 76 SDAPSSPDEF ; Define DAP system specific field 

0000 77 SDAPATTDEF ; Define DAP Attributes message 
0000 78 DAPACCDEF ; Define DAP Access message 
4 79 ert (A ; Define DAP Access Complete message 
000 80 DAPKEYDEF 3; Define DAP Key Definition message 
0000 81 SDAPALLDEF ; Define DAP Allocation message 
0000 Hf SDAPSUMDEF ; Define DAP Summary message 
0000 SDAPTIMDEF ; Define DAP Date and Time message 
0000 84 SDAPPRODEF ; Define DAP Protection message 
0000 85 SDAPNAMDEF ; Define DAP Name message 
0000 86 F ABDEF ; Define File Access Block symbols 
0000 87 SF WADEF :; Define File Work Area symbols 
0000 88 SIFBDEF ; Define IFAB symbols 
0000 8689 SNWADEF ; Network Work Area symbols | 
0000 90 XABDEF ; Define symbols common to all XABs 
0000 91 $XABALLDEF : Define Allocation XAB symbols 
444 8 SXABDATDEF ; Define Date and Time XAB symbols 
0000 9 $XABFHCDEF ; Define File Header Char symbols 
0000 94 $SXABKEYDEF :; Define Key Definition XAB symbols 
0000 95 SXABPRODEF ; Define Protection XAB_symbols 
0000 96 $SXABRDTDEF ; Define Revision Date/Time XAB symbols 
0000 97 $XABSUMDEF ; Define Summary XAB symobls 
0000 98 
0000 99 ; 
0000 100 ; Macros: 
0000 101; 
0000 19 ; None 
0000 103; 
0000 i104 ; Equated Symbols: 
0000 105 ; 
0000 106 
0000 107 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 108 ASSUME NWASQ"FLG EG 0 
0000 109 
0000 110; 
0000 111 ; Own Storage: 
0000 112 ; 
0000 113; None 
| 0000 114 ; 
| 
| 
teat 
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| NTC 
-SBTTL NTSOPEN - PERFORM NETWORK OPEN FUNCTION | 
| 


++ 
NTSOPEN - engages in a DAP dialogue with the remote FAL to open the 
specified sequential, relative, or indexed file. 


Ooo oo m 


SOSOSCOCSCSCOSSOSOSSOSSOSOSOSSOSOSOSOSOSOSOSOSOSOOSOSOSOSOSOSOSOSOOSOOOSSSoSO 2x% 


ODOOOCOOOCOSOOSOOOSOOOSSOOSSOSOOSOSOOOOSOSOSOSOOOSOSOSOOOOOOSOOOSOOOoOO 


Calling Sequence: 
BSBW NTSOPEN 
Input Parameters: 
R8 FAB address 


R9 IFAB address 
R10 FWA address 
R11 

t 


| 
| 
| 
| 
| 


Impure Area address 


Implicit Inputs: 
User FAB 
DAPS$V_FCS 
DAP$V_STM_ONLY 
DAPSV_VAXOMS 
IFB fields 


Output Parameters: 
RO Status code (RMS) 


Ri-R7 Destroyed 
AP Destroyed 


User FAB 

User ALL, DAT, FHC, KEY, PRO, RDT, and SUM XABs 
IFBSV_DAP_OPEN 

IFB fields 

NWASB_RFM 


Completion Codes: 
Standard RMS completion codes 
Side Effects: 


fae en Tae fe |e) ee ee ie ee ew we felon alo lola lolol ol eolololeolololelelelolelolelololololo) 


ek kd dd dd od dd 

SNIP DAD ODA AAD TTT UU Be BS BB EB EWAN AIIIIPPPOPONPONININY SS SS SST 

ROO NOA NE WN @ O ODNAUE WIN $$ O OO NAUE WN CO OO NA E WN OODNOUES WN OOOnNIO OF 
> Tere Tee Tere ere ere ere reer ere ere rere rere rererererererererererererererererererere rere 


000 None 

000 

000 oo 
0000 
0000 TSOPEN:: ; Entry point 
0000 STSTPT NTOPEN : 

57 3C a9 00 9006 MOVL IFBSL_NWA_PTR(R9),R7  ; Get address of NWA (and DAP) 

QO0A 3¢ ; , 

BabA ; Perform the fol Lewtng FOP field processing: 

QOA : (1) disallow the FOP option NFS. ber ed fo 

O0A : (2) disallow the FOP options KFO and UFO set individually, but allow 


Implicit Outputs: 
| 
| 
} 


So 


CS 
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} BOA 173 ; <KFO!UFO> to support the ‘$ RUN node::file.exe’ DCL command. 
A 174; (3) ignore the FOP option DFW without returning an error as DFW is an 
OA 175; unsupported performance option. 
BR 118 
| 30 04 ae 08 G00A 178 MOVL FABSL_FOP(R8) ,RO ; Get user FOP options 
it, ae E ve 179 BBS #FABSU_NFS,RO,20$ i Declare this option unsupported 
08 50 1€ €1 Q01 180 BBC #FABSV_KFO,RO,10$ ; These options are each unsupported 
04650 11 #++€1 OO168 181 BBC #FABSV_UFO,RO,10$ ; _unless both are set 
50 D4 OO1A 18 CLRL 0 3; Denote non-standard type of access 
OF 11 OO1C 18 BRB 40$ : Consider this a load image function 
50 40020000 8F 03 Bote 132 10$: BITL #<<FABSM_KFO>!- ; Branch if none are speci ied; 
002 185 <FABSM_UFO>!- : otherwise declare these options 
0025 186 0>,RO 3 unsupported over the network 
03 13 0025 187 BEQL 30 ; 
FFD6" 31 0027 188 208: BRW NTSLCL_FOP ; Return RMS$_SUPPORT error and 
002A 189 > exit with RMS code in RO 
002A 190 
002A 191 5+ 
OCSa 136 3 Exchange DAP Configuration messages with FAL and determine DAP buffer size. 
002A 194 ° 
50 01 DO QO2A 195 30$: MOVL #DAPSK_OPEN,RO ; Denote type of file access 
FFDO’ 30 O002D 196 40$: BSBW NTSEXCRA_CNF ; Exchange Configuration messages 
0150 €8 0030 197 BLBS RO,BUILB_MASK ; Branch on success 
| 05 003 198 FAIL1: RSB ; Exit with RMS code in RO 
0034 199 
0034 200 ;+ F 
0034 201 ; Build Gisplay field request mask which will be used in the Access message 
0034 202 ; to request that optional DAP_messages be returned by FAL. For SOPEN, these 
0034 2035 ; are the ALL, KEY, PRO, SUM, TIM, and NAM messages. (Note that the Attributes 
0034 204 ; message is required which will supply information to update both the FAB and 
0034 205 ; FHCXAB.) 
0034 soe 3- 
0034 07 ; 
0034 208 BUILD_MASK: 3; Build NWASW_DISPLAY 
56 D4 0034 209 CLRL R6 : Indicate this is not a close operation 
FFC7" 30 0036 519 BSBW NTSSCAN_XABCHN ; Scan user XAB chain and check FAL‘'s 
0039 11 : capabilities; request mask put in R2 
F7 50 9 0039 $i¢ BLBC ng FAIL1 : Branch on failure to complete scan 
FFC1® 30 O03C 21 BSBW  NTS$SCAN_NAMBLK : Scan user NAM block and check FAL's 
003F 14 : capabilities; update request mask 
F150 £9 OO03F 15 BLBC RO, FAIL : Branch on failure to complete scan 
36 4 A8 744 16 BISW2 #DAP$M_DSP_ATT,R2 ; Request main Attributes message 
0000 ¢ 2 B60 0045 7 MOVW  R2,NWASW_DISPLAY(R7)  ; Save request mask 
004A 19 ;+ R 
Open $0 3; Build and send DAP Attributes message to partner. 
GOGA : } 
04A SEND_ATT: : (required message) 
50 02 0 004A 4 MOVL #DAPSK_ATT_MSG,RO ; Get message type value 
FFBO’ 30 gt 5 BSBW NTSBUICD_HEAD ; Construct mesSage header 
9090 : ASSUME DAP$K_SEQ EQ FABSC_SEQ 
05 8 ASSUME DAPSK_REL EQ FABSC_REL 
6050 9 ASSUME DAPSKIDX EQ FABSC~IDX 
L_ 
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ASSUME DAPSK_UDF EQ FABSC_UDF 

ASSUME DAPSK_FIX EQ FABSC_FIX 

ASSUME DAPSK_VAR EQ FABSC_VAR 

ASSUME DAPSK_VFC EQ FABSC_VFC 

ASSUME DAPSK_STM EQ FABSC_STM 

ASSUME DAPSK-STMLF EQ FABSC_STMLF 

ASSUME DAPSK_STMCR EQ FABSC_STMCR 

ASSUME DAPSV_FTN EQ FABSV_FIN 

ASSUME DAP$V_CR EQ FABSV_CR 

ASSUME APSV_PRN EQ FABSV_PRN 

ASSUME DAPSV BLK EQ FABSV_BLK 

ASSUME DAPSK_DATATYP_D EQ DAPSM_IMAGE 

ASSUME DAP$K"ORG_D EO DAPS$K_SEQ 

ASSUME DAPSK_RFM_D EQ opt MEL 

ASSUME DAPS$K~ RAT “D EQ DAPSM_EMBEDDED 


; Construct attriburtes menu mask. 


PART1: MOVZWL #<<DAPSH_MRS>!- 
<DAPSM_FOP1>!- 
BBS #FABSV_BIO,- 
FABSE VeRce 
BISL2 #<<DAPSM “DATATYPED!- 


o> orn. RAT>!- 
BBC #DAPSV -VAXVMS, ag F 10$ 


Q = 10$ 
$SETBIT #DAPSV_FSZ.R1 
10S: STi FABSW_BEQ(R8) 
SSETBIT #DAP$V_DEQ1,R1 
208: OVL 1 
BSBW = NTS$CVT_BN4_EXT 


o 
e 
o 
° 
v 
. 
° 
e 
e 
: 
« 
. 
3 
; 
; 
; 
e 
2 
° 


; Branch if 
#FABSC_VFC, FABSB_R M(RB); 


; Always include MRS and FOP fields 
; in mask 


; Branch if block 1/0 mode 
; Add DATATYPE, ORG, RFM, and RAT fields 


to mask 


artner is not VAX/VMS 
Check for VFC format 


Add FSZ field to mask 
Branch if DEQ = 0 


; Add DEQ field to mask 
; Save attributes menu field 
; Store ATTMENU as an extensible field 


: Store rest of fields per attributes menu. 


: Note are APE = dune +4 field defaults: 


: ORG = 

: REM = a 

: RAT = EMBEDDED 
BBC 


#DAPS$V_STM_ONLY, (R7),- 
PART2B 


3; Branch if not stream-based remote 
file system 


NOW &W-OOOro 
man NOLOo—--oOU 
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pre ts ; The remote node is using a stream-based file system. | 
pre 8 : This section deals with the DATATYPE, ORG, RFM, RAT, and MRS fields. | 
O7E 291° 
EO OO7E 38 PART2A: BBS #FABSV_BIO,- ; Branch if block 1/0 mode | 
9080 9 FABSB_FAC(R8),10$ ; 
90 00 94 MOVB  #DAPSA_ASCII, (R5)+ : Store DATATYPE field | 
90 0086 295 MOVB  #DAP$K"SEQ,(R5)+ : Store ORG field 
90 tH 88 MOVB #DAPSK_STM,(R5)+ ; Store RFM field 
90 008C 29 MOV8  #DAPSM“EMBEDDED,(R5)+ : Store RAT field 
B0 poet 38 MOVW #<51242>, (R5)+ : Store MRS field (allow for CRLF which 
3 4 9 3 partner may consider part of record) 
11 0094 00 BRB PARTS ; Join common code 
BO 0096 01 10$: MOVW #512, (R5)+ : Store MRS field 
11 0098 8 BRB PARTS 3; Join common code 
0090 304 
4444 82 ; The remote node is NOT using a stream-based file system. | 
009D 07 ; This section deals with the DATATYPE, ORG, RFM, RAT, and MRS fields. 
$09) 309 | 
EO 009D 310 PART2B: BBS #FABSV_BIO,- ; Branch if block 1/0 mode 
OO9F 311 FABSB_FAC(R8) ,20$ ; 
90 OO0A2 $18 MOVB #DAPSA_ASCII (R5)+ : Store DATATYPE field 
EQ O0A5 1 BB #DAPSV_VAXVMS (R7),10$ ; Branch if partner is VAX/VMS 
90 O0A9 314 MOVB  #DAP$K~SEQ,(R5)+ : Store ORG field 
90 QOAC 15 MOVB #DAPSK_VAR,(R5)+ 3; Store RFM field 
90 OOAF 16 MOVB #DAPSM_CR,(R5)+ 3; Store RAT field 
11 00B2 17 BRB 20$ - 5 . 
90 00B4 318 10$ MOVB FABSB_ORG(R8) , (R5)+ 3; Store ORG field 
90 0088 $35 MOVB FABSB_RFM(R8),(R5)+ ; Store RFM field 
90 OO0BC 20 MOVB FABSB_RAT(R8),(R5)+ ; Store RAT field 
B4 00CO 321 208: CLRW (R5)+ ; Zero MRS field ; 
E1 00C2 $55 BBC #DAPSV_FCS,(R7),PART3  ; Branch if partner is not FCS based 
B0 00¢6 33 MOVW  IFBSL_BEVBUFSIZ(R9),-2(R5); Specify maximum value 
00CB 23 
once $$ 3; This section deals with the FSZ, DEQ, and FOP fields. 
00¢B g° 
—1 00CB 9 PART3: BBC #DAPSV_FSZ,R6,10$ 3; Used only if RFM = VFC 
90 Bact 0 MOVB FABSB_FSZ(R8),(R5)+ : Store FSZ field 
12 Ope 1 BNEQ 10$ ; Branch if non-zero 
90 44 § MOVB 2,71(R5) ; Use default FSZ value 
E1 0 d9 10$ BBC #DAPSV_DEQ1,R6,20$ : Used only if DEQ > 0 
0 ODD 34 MOVW FABSW_DEQ(RS),(R5)+ : Store DEQ fie 
00E1 5 20$ BSBW NTSMAP_FOP 3; Store FOP field 
0 O0E4 $$ BSBwW NT$BUICD TAIL 3 Finish building message 
0 00E7 7 BSBW 3s NTSTRANSAIT ; Send Attributes message to FAL 
E9 OOEA 38 BLBC 0,FAI : Branch on failure 


wie 7 
| NTOOPEN 
vOe-000 | 
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OED 40 ;+ 
SED 3 ; Build and send DAP Access message to partner. 
OED 348 
OED 44 SEND_ACC: ; (required message) 
OED 45 SSETBIT #NWASV_LAST_MSG,(R7) ; Declare this Last message to block 
50 03 8 Bore 6 MOVL APSK-ACC_ASG,RO ; Get message type value 
FFO9" OF4 4 BSBW NT$BUICD_HEAD ; Construct message header 
11. +€1 OOF? 48 BBC #FABSV_UFO,- ; Branch if this is not a load image 
| 15_04 A8 QOF9 349 FABSL FOP (RS) 108 ; function (for image activator) 
04 67 4 €0 OOFC 50 BBS WOAPSU_VAXVMS,(R7),5$ ; It is a VMS partner so we can go on 
| 67 35 «ET 106 31 BBC #DAPSV-VAXELAN, (R75 ,= 
A 10 § FAIL FOP ; It is not ELAN partner so we must fail 
FF AS 20 88 0104 53 5$: BISB2 #DAPSM_SYSPEC,-1(R5) ; Modify flags fiel 
85 02 90 0108 54 MOVB #2, (R55+ 3; Store SYSPEC as an ima 
| 85 02 90 0108 355 MOVB &#DAPS$M_SSP_FLG,(R5)+  : Store SSP_MENU sub-fie 
85 O01 90 OWE 356 MOVB #DAPSMLOAB, (R5)+ ; Store SSP-FLG sub-field 
0111 57 ; Message header is now complete ... 
i 85 01 90 0111 58 10$ MOVB #DAP$K_OPEN, (R5)+ 3; Store ACCFUNC field 
85 01 90 0114 359 MOVB #DAPSM_NONFATAL, (R5)+ ; Store ACCOPT field 
FEE6' 30 0117 60 BSBW NTSCRC_INIT ; Initialize CRC value if both parties 
Q11A 61 3 _support file level CRC computation 
0450 €9 OQIIA 66 LBC RO,20$ ; Branch if CRC checking disabled 
FF AS 08 88 0Q11D 6 BISB2 #DAPSM_RET_CRC,-1(R5) ; Request CRC checksum option 
FEDC’ 30 0121 64 208: BSBwW NTSGET_FILESPEC ; Store FILESPEC as a counted 
0124 365 ; ASCII ane 
FED9" 30 0124 366 BSBW NTS$GET_FAC_SHR ; Store FAC and SHR fields 
51 0000 C7 3C 0127 367 MOVZWL NWASW BISPCAY(R7) ,R1 ; Get request mask 
51 01 B61 O12C 368 CMPW #DAPSA_DSP_ATT,R1 ; Omit DISPLAY field from message if | 
03 «13 pi¢t 369 BEQL 30$ : only Attributes message specified 
0131 $59 ; (because some older FALs do not 
0131 71 ; support this field nor Ext Att msgs) 
FECC’ 30 0131 376 BSBW NTSCVT_BN4 _EXT ; Store DISPLAY as an extensible field 
FEC9* 30 0134 73 30S: BSBW NT$BUICD TAIL : Finish building message 
FEC6’ 30 0137 374 BSBW NTSTRANSAIT : Send Access message to FAL 
0450 €8 O13A 375 BLBS RO,RECV_ATT ; Branch on success | 
05 0130 376 FAIL2: RSB ; Exit with RMS code in RO 
013€ 377 FAIL_FOP: 
FEBF® 31 O13€ 378 BRW NTSLCL_FOP 
| 
| 


NTOOPEN 
v04-0 


s@ 
3; Receive DAP Extended Attributes messa 
s 


B 2 


E 
M NETWORK OPEN FUNCTION 


previously found. 


A 
DAPSW-MR 
NTSMAP_D 


16=SEP=1984 
=SEP=1984 


R6 
NTSSCAN_XABCHN 


R 
OPEN _UPDATE_FAB 
NTSUBDATE FAC 


DAP$V_DSP _ALL,- 
NWASW_BISPCAY(R7),- 


RECV_E 


XT_ATT 
NTSDECODE_ALL_A 


' 


; ALL, DAT, KEY, PRO, RDT, and SUM XAB 


NTSRECV_EXT_ATT 


RO,FAIL3 


#DAPSV_DSP_NAM,- 


NETWORK OPEN FIL 
NTSOPEN = PERFOR 
0141 80 ; 
141 13 
141 ¢ : 
141 ; returned by FAL. 
141 Se : 
Spe ye 
141 86 ; 
0141 87 ;: 
0141 88 ;- 
0141 89 
0141 90 RECV_ATT: 
0141 91 
0146 35 
FEB7" 30 0146 9 BSBW 
$¢ 50 €—9 0149 94 BLBC 
45 AZ? 90 014C 395 MOVB 
00C6 C7 O14F 396 
46 A? 90 O12 44 MOVB 
00C7 C7 015 98 
08 67 32 #&€1 #0158 399 BBC 
05 €0 015¢c 400 BBS 
03 16 A8& 0O15E 401 
4A A7 B& 0161 ret CLRW 
FE99" 30 0164 403 10$: BSBW 
0167 404 
0167 405; 
0167 406; 
0167 407; 
0167 408 
56 D& 0167 409 CLRL 
FE94' 30 0169 410 BSBW 
50 53 016C 411 BLBC 
0117 0 O16F 412 BSEW 
01A0 «630 0172 413 BSBW 
02 €0 0175 414 BBS 
00D0 C7 0177 3=415 
03 O17A 416 
0360 30 0178 417 BSBW 
O17E 418 
Q17E 419 
017E 420 
017E $s! 
O17E 4 ¢ 
Bize 423 ; 
17E 424 
O17E 425 RECV_EXT_ATT: 
71 10 O17E 426 6SBB 
28 50—=s«éE b188 427 BLBC 
01 428 
bigs 429 
0183 430 
0183 431; 
01 £38 
1 4335 RECV_NAM: 
E1 1 434 BBC 
00D0 C7 133 435 
OE 188 436 


NWASW_DISPCAY(R7),- 
RECV_ACK 


0: 
6: 


$SETBIT #DAPSK_ATT_MSG,DAPSL_MSG 


25:38 


+ 
; Receive DAP Attributes message from partner and update the user FAB and 
FHCXAB. Also update the user ALLXAB if an Allocation message will not be 


7) 
7) 
() 
7) : 
ONLY, (R7),10$; 
8) 
7) 
CH 


AX/VMS Macro V04-00 


Page 
RMS.SRCINTOOPEN.MAR; 1 


; Note: The user XAB chain is scanned again to probe all user XABs to protect 
RMS from a user who deletes the address space where an XAB was 


srequiced message) 
MASK 


R7) 
Expect response of Attributes message 
Get reply from FAL 
Branch on failure 
Save file organization type 


Save file format type 


Return an MRS value of zero if partner 
uses a stream-based file system and 
this is not a block I/0 operation 
because remote parrots what we sent 

Process device characteristics 


Indicate this is not a close operation 
Scan user XAB List again 

Branch on failure to scan XABs 

Update user FAB 

Update user FHCXAB 


; Branch if Allocation message 


was requested 


Update user ALLXAB from fields in 
Attributes message (unless ORG = IDX) 


ges from partner and update the user 


(optional--must be requested) 
Process Extended Attributes messages 
Branch on failure 


a¢ 
; Receive DAP (resultant) Name message from partner. 


(optional--must be requested) 
Branch if Name message was not 
requested 


C 


NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 10 | NTO 
v04-000 NTSOPEN = PERFORM NETWORK OPEN FUNCTION -SEP-1984 16:20:58 [CRMS.SRCINTOOPEN.MAR; 1 " (6) v04 
89 437 SSETBIT #DAPSK_NAM_MSG,DAPSL_MSG_MASK(R7) 
; E 438 ; Expect response of Name message 

FE6F* 30 BE 439 BSBW NISRECE LVE ; Get reply from FAL | 

1A 50 2 91 440 BLBC RO,FAIL ; Branch on failure | 

0469 0 3 red BSBW NTS$DECODE_NAM ; Process resultant name string 
97 208 7+ 
4 tte ; Receive DAP Acknowledge message from partner. 
97 446 
97 447 RECV_ACK: : sregyires message) 
97 448 SSETBIT #DAPSK_ACK_MSG,DAPSL_MSG_MASK(R7) 
9C 86449 ; Expect response of Acknowledge message 
9c =—s._« 450 BSBW heath ae ; Get reply from FAL 
SF 6451 BLBC RO,FAIL :; Branch on failure 
A2 43¢ BBS #1FBSV_BRO,- : Branch if BRO option set 
AG 45 IFB$B_FAC(R9) ,FAC_BRO H 
A? 454 SUC:  $SETBIT #IFBSV_DAP_OPEN,(R9) |: Denote FAL has opened file | 
AB 455 RMSSUC ; Return success , 
AE 456 FAIL3: RSB ; Exit with RMS code in RO 


— 


future. 


AMROOWDNAUES WN 9 OONAU EWN OWONAULS WOW 

nn 
> 
o 
4 

@ 
"J 
oO 


Mo 
; Receive DAP Access Complete message from partner. 


ws 


ee ee ee el el eel eel eel eel el eel el el eel el el el el eel cel eel eel el el el eel cere eel el el eel ell el el eel cell el eel eel el eel eel eel cel cl eel eel el 
MMAMMIOCSCSCCOCOOC TOC OUT COON OO FNOWWWDWDOODWDODWMS YP PPPPPPrPrPrPryYp 
Peels Pal eal ealealealealealtaltal ot ot nt ot ot at nt at nt ae ae at at ae at eee 
=—|=DOSDDGOD90000 0000 OOO 0000000 00 0000 00 00 09 09 SI NINI INI NINN AOAAAAAAAOUIN 


felelelelelelelelelelelelelelelelelelelelelelelelelelolelelelolololelololelelololelelelelelol ale =) 
MDOL NMBA ANMGOOLLSLLHLLLSMDOUVPIMMMMMMMo NW nn nnn non 


BRW SEND_ATT ; Reopen the fi 


te 


the transfer of such files from a non-VMS system in block I/0 mode. See 
comments for the NTSRET_DEV_CHAR routine for related information. 


Note: The FAB$V_BRO and RAB$V_BIO options are fully supported VMS to VMS and 
and documented as such. However, these options are documented as being 
unsupported when communicating with a non-VMS partner. Use of these 
options with a non-VMS partner is strictly for Digital component use 
only as their behavior in a heterogenoes environment may change in the 


: Special processing of BRO 
#DAP$V_GEQ _V56,(R7),SUC ; Branch if partner uses 7 sl V5.6 


Declare this last message to block 


Send Access Complete message to FAL 


F4 67 4 €1 
FO 67 ¢ EO BBS #DAPSV-VAXOMS,(R7),SUC ; Branch if partner is VAX/VMS 
00 00c6t7 91 CMPB = NWA$SB_ORG(R7) ,A#NWASK_SEQ: Branch if SEQ organization 
E9 §13 BEQL SUC ; else fall thru if REL or IDX 
s* 
; Build and send DAP Access Complete message to partner. 
BRO_SEND_CMP: : 
SSETBIT #NWASV_LAST_MSG, (R7) : 
50 07 00 MOVL #DAPS$K-CMP_MASG,RO ; Get message type value 
FE38° 30 BSBW NTSBUILD_HEAD 3; Construct message header 
85 01 90 MOVB #DAPSK CCOSE,(R5)+ 3 Store CMPFUNC field 
FE32° 30 BSBW NT$BUICD TAIL : Finish building message 
FE2F* 30 BSBW NT ; ' 
DA 50 «EY BLBC RO, FAILS : Branch on failure 


3 Expect response Y Access Complete msg 


; Transform BRO request into a B10 
: Do not request return of XAB initio 


have it from first open 
in block 1/0 mode 


6 

7 BRO_RECV_CMP: : 

3 SSETBIT #DAPSK_CMP_MSG,DAPSL_MSG_MASK(R7) 

0 BSBW NTSRECEIVE Get reply from FA 

BLBC RO,FAIL ; Branch on failure 
34 

: 3; Now reopen the file in block I/0 mode. 

6 e 

7 SCLRBIT #IFBSV_BRO, IFBSB_FAC(R9) 

8 SSETBIT #IFBSV_BIO,IFBSB_FAC(R9); request 

9 MOVW #DAPSM_DSP_ATT,- 

0 NWASW_DISPLCAY(R7) ; as we alread 


NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 11. 
v04-000 FAC_BRO mets 1:90:88 CAMS SRCINTOOPEN. MARS 1 ° (7) 
1AF -SBTTL FAC_BRO 
1AF 
1AF ++ 
1AF Convert FAB$V_BRO request to FABSV_BIO request if partner node is not VMS 
O1AF and the file opened is a relative or indexed file. This is done to facilitate 


| 
| 


NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro V04-00 Page 12 NTO 
v04=000 NTSRECV_EXT_ATT =SEP-1984 16:20:58 CRMS.SRCINTOOPEN.MAR; 1 see: v04 
1F1 213 -SBTTL NTSRECV_EXT_ATT 
1F1 14 
wh | 63S gee 
Q1F1 516 ; This routine receives and decodes DAP Extended Attributes messages from 
Q1F1 517 ; partner and updates the user Allocation, Date and Time, Key Definition, 
tte 218 ; Protection, Revision Date and Time, and Summary XABs as appropriate. 
O1F1 2 QO ; A mask (NWASL_MSG_MASK) is used to determine if all requested Extendea 
O1F1 521 ; Attributes messages (NWASW DISPLAY) have been received before allowing a 
sie me § ; DAP NAM or ACK message to Be received and processed. NTSDECODE_xxx routines 
Bits 5 7 ; each clear their respective mask bit after processing a DAP message. 
te : 5 ; Note: For indexed files, multiple Allocation and Key Definition messages 
O1F1 258 ; may be returned. 
O1F1 527 ;- 
O1F1 528 
O1F1 529 NTSRECV_EXT_ATT:: ; Entr point 
51 0000 Cc? 3¢ O1F1 530 MOVZWL NWASW_DISPLAY(R7),R1 ; Get ba message request mask 
52 D4 O1F6 = 531 LRL R2 ; Clear valid messages to receive mask 
O1F8 238 SMAPBIT DAP$V_DSP_ALL,DAPS$K_ALL_MSG; Map request for Allocation msg 
0200 53 SMAPBIT DAPSV_DSP_KEY,DAPSK_KEY_MSG; Map request for Key Definition msg 
0208 534 SMAPBIT DAP$V_DSP_PRO,DAPSK_PRO_MSG; Map request for Protection msg 
0210 535 SMAPBIT DAPS$V_DSP_SUM,DAPS$K_SUM_MSG; Map request for Summary msg 
0218 536 SMAPBIT DAPSV_DSP_TIM,DAPSK_TIM_MSG; Map repees for Date and Time msg 
00D4 C7 52.) 0s -:0220 = 537 MOVL 2,NWASL_MSG_MASK(R7?) ~; Save valid message mask for use again | 
0004 C7 DO 0225 538 LOOP: MOVL NWASL_MSG_MASK(R7),- : Expect response of any of these DAP 
ic A? 0229 539 DAPSL_MSG_MASK(R7) ; _messages ; | 
58 13 0228 540 BEQL DONE ; Branch if no more to receive 
FODO' 30 O22D 541 LOOP’: BSBW NTSRECEIVE ; Get reply from FAL 
55 50 €9 oe30 at¢ BLBC RO, FAIL ; Branch on failure 
0235 544 ASSUME DAPS$K_KEY_MSG EQ 10 
233 «545 ASSUME DAPSK"ALL_MSG EQ 11 
0233 546 ASSUME DAPSKSUM~MSG EQ 12 | 
0233 547 ASSUME DAPSK-TIM“MSG EQ 13 
035 248 ASSUME DAPSKPRO-MSG EQ 14 | 
45'AF 9F 0233 550 PUSHAB B“LOOP2 ; Push return address on stack 
0236 86551 $CASEB SELECTOR=DAP$B_TYPE(R7)-; Dispatch to process message: 
0236 226 BASE=#DAP$K_KEY_MSG- ; 
0236 38655 DISPL=<- : Oa 
0236 554 NTSDECODE_KEY- ; Key Definition message 
0236 555 NTSDECODE_ALL- :; Allocation message 
o¢36 228 NTSDECODE_ SUM- ; Summary message 
0236 55 NTSDECODE_TIM- ; Date and Time message | 
0236 558 NTSDECODE_PRO- ; Protection message 
0 i? 559 > : 
024 560 
0245 561 ;+ } ‘ alee 
OSes 266 ; If this is an indexed file and an Allocation or Key Definition message has just 
0245 563 ; been processed, look ahead to see if the next message is of the same type. 
0245 564 ; If so, process it; otherwise don't allow any more of this type (i.e., 
8 $2 366 ; multiple Allocation and Key Definition messages must be received as a block). 
45 567 © 
20 O0C6 Cc? 91 6 45 568 LOOP2: CMPB NWASB_ORG(R7) ,ANWASK_IDX; Branch if not IDX organization 
D9 «612 «(024A = =«(569 BNEQ LOOP : 


NTOOPEN NE 
NT 


v04-000 LE 5 44 =] o8e 99: 93:83 yanvas Macro V04-00 Page 


LRMNS SRCINSOOPEN. MAR; 1 


=< Uv 
=m 
_2 
> 


; Return succe 
; FAIL with RMS code in RO 


RK 0 FI 
CV_E TT 

4C 70 SCASEB SELECTOR=DAP$B_TYPE(R7)=- ; Message just processed was: 

4C 71 BASE=#DAPS$K_KEY_MSG- 3 

4C ie DISPL=<- ; 

4C 7 DECODE_NXT_KEY=- : Key Definition message 
8 rt ee 4 DECODE_NXT_ALL= ; ocation message 
0 35 376 BRB LOOP ; all other 
8 57 77 DECODE_NXT_KEY: ; Handle multiple KEY messages 

57 78 SSETBIT #NWASV NODECODE, (R7) 3; Read next DAP message (if required) 
0258 79 BSBW NTSR RECELV E ; but don't parse it 
O25E 580 BLBC RO, FAIL ; Branch on failure 
8 61 2) CMPB aDAP$a -MSG_BUF 1+4(R7),- ; Branch if this is not another 

64 ¢ #DAPSK_KEY_MSG ; Key Definition message 
b¢63 58 BNEQ LOO ei gg; lew any more KEY messages) 
0267 584 SSETBIT #DAPSK_KEY “ASG. DAPS$L _MSG. * MASKCR?D 
026C 585 LOOP1 ~ 3 Process this Key Definition message 
O26E 586 DECODE_NXT_ALL: ; Handle multiple Allocation messages 
bg6e 587 SSETBIT #NWASV NODECODE, (R7) ; Read next DAP message (if required) 
027 588 BSBW NTSRECEIVE ; but don't parse it 
0275 589 BLBC RO,FAIL ; Branch on failure 
0278 590 CMPB aDAP$a woe BUF 1+4(R7) ,- : Branch if this is not another 
0278 591 #DAPSK_ALL_MSG ; Allocation message 
027C 236 BNEQ LOOP : (dissttou any more ALL messages) 
O27E 59 $SETBIT #DAPSK_ALL_MSG,DAPSL -MSG_MASK(R7) 
0283 594 BRB LOOP 1 ; Process this _natncoe ee message 
0285 595 
0288 596 
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v04-000 OPEN_UPDATE_FAB et 0:90:88 RMS.SRCINTOGPEN.MAR; 1 ° (9) | 
9 9 -SBTTL OPEN_UPDATE_FAB 
9 235 “3 . 
9 680 p++ ; 
4 o8) ; Update the user FAB from the Attributes message. | 
0 89 808 ; Note: BLS and MRN will be updated directly in the FAB, whereas, the other 
0289 604 ; fields will be updated in the IFB and then returned to the FAB by the 
0289 605 ; RMSOOPEN exit code. 
0 53 606 ;-- 
0289 607 
0289 608 OPEN_UPDATE_FAB: ; Entry point 
BB is 
0289 611 ; Process the DAP ORG, MRN, BLS, RFM, and RAT fields. 
ae 
04 04 EF 0289 614 EXTZV #IFBSV_ORG,#IFBSS_ORG,- ; Note that DAP$B_ORG is in same 
51 "45 A? O28C 615 DAPSB_ORG(R7) .R1 ; format as 1FBS6_RFMORG | 
23 A9 «651 «490 O28F 616 MOVB R1,1FB$B_ORGCASE(R9) ; Store file organization 
00 51 91 0293 617 CMPB R1,#DAPSR_SEQ ; Branch if SEQ organization 
Op 13 0296 618 BEQL : | 
10 45 A? 91 0298 619 CMPB DAPS$B_ORG(R7) ,ADAPSK_REL; Branch if not REL organization 
OC 12 029C 620 BNEQ . 
38 AB «658 A? OO Ode 621 MOVL DAPSL_MRN(R7) ,FABSL_MRN(R8) 
05 11 O2A o¢¢ BRB 20$ : 
3C AB =48 AZ «BD OgAs 623 10$:  MOVW  DAP$W_BLS(R7),FABSW_BLS(R8) 
50 AD «646 AZ 90 «=(O2AA 624 «208: MOVB DAPS$B_RFM(R7) , IFBSB_RFMORG(R9) 
00B4 30 OQ2AF 625 BSBW NTSMOB_RAT ; Modify RAT bits returned from FAL 
0282 626 ; as required 
51 A9 47 A? 90 02B2 627 MOVB dAP$B_RAT(R7), IFB$B_RAT(R9) 
02B7 628 
0287 O62 ; : 
02B7 630 ; Process the DAP MRS and LRL fields. 
osef 631 ; 
0287 O36 
60 A9 4A A? BO 0287 63 MOVW  DAPS$W_MRS(R7), IFBSW_MRS(R9) 
52 a9 70 A7 BO O2BC 634 MOVW  DAPSWILRL(R7),IFBS$W-LRL(R9) 
OB 12 Q2C1 635 BNEQ 30 ; Branch if non-zero 
01 46 A7 91 O02C3 636 CMPB DAPS$B_RFM(R7) ,ADAPSK_FIX; Branch if record format is not 
05 12 Q2C7 637 BNEQ ;_ fixed Length 
52 a9 4A AZ BO 0209 638 MOVW  §DAPSW_MRS(R7), IFB$W_LRL(R9) 
O2cE 639 
O2CE 640 ; 2 
Gece 661 ; Process the DAP ALQ and HBK fields. 
OSre 7 ; Note: ALQ and HBK are equivalent, but not all non-VAX nodes return HBK. 
O2cE 645 
70 Ads 4C AZo ast ee 30$: MOVL DAPSL_ALQ1(R7), IFBSL_HBK(R9) 
65D 648 ; : 
Qed 649 ; Process the DAP BKS, FSZ, and DEQ fields. 
05381 | 
| 
5E Ad 29 A? = 90 : D 626 40$: MOVB DAP$B_BKS(R7), IFB$B_BKS(R9) 
5F AQ 1A7 90 8 D8 65 MOVB DAP$B_FSZ(R7) , IFB$B_FSZ(R9) 
62 a9 54 a7 BO O2DD 654 MOVW  DAPS$WTDEQ1(R75, 1FBSQ_DEQ(R9) 


wi 0 NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 15 | 
U al - - MS.SRCIJINTOOPEN.MAR; (9). 
dee000 OPEN. UPDATE FAB ety ee INTO , . 
E 655 
E 6 § 3 
: ? 3; Process the DAP FOP field. 
E2 659° 
51 64 A7 dO E 660 MOVL DAPSL_FOP1(R7),R1 ; Get DAP FOP bits 
52 D4 E 661 CLRL Re ; Clear resultant FOP bits 
E 066 SMAPBIT DAPS$V_CTG,FABSV_CTG ; Map CTG bit 
F 66 SMAPBIT DAPS$V— _CBT,FABSV_CBT ; Map CBT bit 
F 664 SMAPBIT DAPS$V— RCK, FABSV_RCK ; Map RCK bit 
8 665 SMAPBIT DAPSV-WCK FABSV_WCK ; Map WCK bit 
04 AS 00800200 BF CA 996 BICL2 #<<FABSM_ ETG>!- 3 Clear FOP bits in user FAB 

1 66 <FABSM_CBT>!- 3; that may be updated 

0310 668 <F ABSM_ RCK> I= H 

0310 669 <FABSM_WCK>!- 3 

0310 670 0>, FABSL_ FOP(R8) : 

04 AB 52 C8 0310 671 BISL2 R2, FABSL_ FOP(R8) ; Update FOP field 
05 0314 672 RSB 3; Exit 


I 2 
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v04-000 NTSUPDATE_FHC = UPDATE FHC XAB “SEP=19 6:20:58 (CRMS.SRCINTOOPEN.MAR; 1 8) | 


1 674 -SBTTL NTSUPDATE_FHC = UPDATE FHC XAB FAB 
1 675 “% FAB 
1 of8 p++ FAB 
! of ; Update the user File Header Characteristics XAB from the Attributes message. | oa 
Bee raoare eer pr | 

33 3; Entry poin | 
56 0108 C7 0 1 681 MOVL NWASL_FHCXABADR(R7),R6 ; Get Caress of user FHCXAB FAB 
49 13 O31A 68 BEQL 30$ : Branch if none FAB 
O31C 6 | FAB 
§ if eRe : P the DAP RAT, BKS, DEQ, EBK, FFB, FSZ d SBN field FAE 

3 Process the . . - ‘ : » an N fields. 

1¢ 686 ; FAB 
031C 687 FAB 
0047 30 O31C 688 BSBW NTSMOD_RAT ; Modify RAT bits returned from FAL | FAE 
bait 689 ; as required F AE 
09 A6 «447 AZT) «(90 «~(O31F 690 MOVB $DAP$B_RAT(R7) ,XAB$B_ATR(R6) FAE 
16 A6 SO AZ 90 0324 691 MOVB  DAPS$B_BKS(R7) ,XAB$B_BKZ(R6) FAE 
1A A6 54 A? BO 0329 636 MOVW DAP$W~DEQ1(R75 ,XABS DxXQ(R6) FAE 
10 A6 «=78 A?) «+O 03 3 69 MOVL DAPSL-EBK(R7) .XABSL_ EBK (RO) FAE 
14 A6 72 A? =6©8BO O63 694 MOVW DAPSW_FFB(R7) ,XABSW_FFB(R6) FAE 
17 A6 «6551 A?) «90 «20338 )~=— 695 MOVB DAP$B_FSZ(R7) ,XAB$B_HSZ(R6) F AE 
28 A6 «670 A? OO «C(033D = 696 MOVL DAP$L_SBN(R7) , XABS$L_SBN(R6) FAE 
034 697 FAE 
034 698 ; F AE 
034 699 ; Process the DAP MRS and LRL fields. F AE 
bees 701 | FAB 
18 A6 4A A? BO bee 70 MOVW DAPSW_MRS(R7) , XABSW_MRZ(R6) F AB 
OA A6 70 A? =— BO. s«*0347 70 MOVW DAPSW_ LRL(R7), *XABSW~ LRL(R6) | FAE 
OB 12 034C 704 BNEQ 10$ Branch if non-zero FAB 
01 46 A7 91 O34E 705 CMPB DAP$B_RFM(R7) , ADAPSK FIX: Branch if format is not FAB 
05 12 0352 706 BNEQ 10$ fixed length FAB 
OA A6 «GAA? BO 0354 = 707 MOVW § DAPS$W_MRS(R7), XABSW_LRL(R6) FAC 
0359 708 FAI 
0359 709; FAI 
0359 710 ; Process the DAP ALQ and HBK fields. FAI 
0328 711 : FAI] 
0359 ie ; Note: ALQ@ and HBK are equivalent, but not all non-VAX nodes return HBK. FA] 
0359 713; FIL 
0359 714 FWA 
OC A6 4C AZ DO 0359 715 10$: MOVL DAP$L_ALQ1(R7) , XABSL_HBK (R6) FWA 
ge 1 al: 
See 718 ; Process the DAP RFM and ORG fields which are combined into one XAB RFO field. IFE 
O35E 719; IFE 
pa2e 720 IFE 
35— = 721 ASSUME DAPSK_UDF EQ FABSC_UDF IFE 
O35— 7 é ASSUME DAPSKFIX EQ FABSC FIX | 1FE 
O35E 7 ASSUME DAPSK-VAR EQ FABSC_VAR 1FE 
O35E 724 ASSUME DAPSK_VFC EQ FABSC_VFC IFE 
O35E 725 ASSUME DAPSK_STM £0 FABSC_STM IFE 
O35E 7 g ASSUME DAPSKISTMLF EQ FABSC_STML IFE 
0 2f 4 8 ASSUME DAPSK-STMCR EQ FABSE™ ~STMER itt 
08 A6 445 A7 46 A? 81 6 5E 729 08: ADDB3 DAPSB_RFM(R7) ,DAP$B_ORG(R7) ,XABSB_RFO(R6) 1FE 
05 v36 730 50$: RSB 3 Exit IFE 


12 | 
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66 7 -SBTTL NTS$MOD_RAT 
66 7 : = 
66 734 ;4+ 
66 735 ; This routine converts the DAP RAT field received from the remote FAL t 
66 7 § ; form that may be retruned to the user. In particular, the DAP$v_ EMBEDDED bit 
66 737 ; is cleared, and if the DAP RFM field = STM with no other carriage control 
66 7 8 ; bits set, RAT is forced to CR. 
8 66 739 ;:- 
66 740 
Bace 741 ry 
66 fae RCCRBIT #DAPSV EMBEDDED ,DAPSB RAT (RS ; Nocera the embedded bit 
04 46 A7 pf 8 98 ok Buce B_RFM(R7) ,MDAPSK_ ST TM; Branch if not STM format 
47 a7 07 38 0391 745 BITB #<<DAPSM_F IND! - ; If RAT = embedded or none for STM 
0375 746 <DAPSM_CR>!- : format file... 
0375 747 <DAP$M_PRN>!- 3 
0375 748 0> DAPSB_ RAT(R7) § 
05 12 0375 749 BNEQ 1 3 
0377 750 pss Teer #DAPSV_CR,DAPSB_RAT(R7) ; Force implied carriage control 
05 037C 751 10$: RSB : Exit 


| 
| 
NTSMOD_R gint | 


K OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 18 | 
ODE_KEY = UPDATE KEY XAB mi aets 1 93:90:48 RMS .SRCINTOOPEN.MAR; 1 oat (12) 
7d. «6753 -SBTTL NTSDECODE_KEY = UPDATE KEY XAB 
BT 
7 867? § : A Key Definition message has been received and decoded in the DAP control 
£p if 3; Block. Update the next user Key Definition XAB in chain. 
8 4 135 : Note: Multiple Key Definition XABs are valid only for indexed files. 
ge | 
037D 761 
7D 762 NTSDECODE_KEY:: 3; Entry point 
011D Cc? 95 037 788 TSTB NWASB_KEYXABCNT(R7) § Branch if there are more KEYXABs | 
03 12 8 } 764 BNEQ 10$ 3; _in chain 
QOAE 31 765 BRW 30$ 3; Branch if none 
56 010C C dO b358 £66 10$: MOVL NWASL_KEYXABADR(R7),R6 ; Get address of next KEYXAB in chain 
0388 768; | 
0388 769 ; Process the DAP FLG field. 
ae | 
51 48 A? 9A Sse ue MOVZBL DAPS$B_FLG(R7),R1 ; Get DAP FLG bits 
52. D4 (O38F 677 CLRL_ R2 ; Clear RMS FLG bits | 
0391 774 SMAPBIT DAPSV_DUP,XABSV_DUP 3; Map DUP bit 
0399 775 SMAPBIT DAPSV_CHG, XABSV_CHG : Map CHG bit 
03A1 776 SMAPBIT DAPSV-NUL_CHR,XABSV_NUL ; Map NUL bit 
12 A6 «652 = = «90 ies ahs MOVB R2,XABS$B_FLG(R6) 3 Update FLG field in XAB 
O3AD 779 ; 
O3AD 780 ; Process the DAP DFL, IFL, REF, NUL, IAN, LAN, DAN, DTP, RVB, DVB, 
O3AD 781 : DBS, IBS, LVL, TKS, and MRL fields. 
O3aD 78S 
1C AG 44 A7 O3AD 784 MOVB DAPSW_DFL(R7) ,XABSW_DFL(R6) 
1A A6 «446 A7— 90 tr4 785 MOVB DAPSW_IFL(R7) ,XABSW_IFL(R6) 
17 A6 «6©6C AZ) (90) «=—(038 786 MOVB DAPSB_REF (R7) ,XABSB_REF (R6) 
15 A6 6D AZ? 90 O3BC 787 MOVB DAPS$B“NUL(R7) .XABSB_NUL (R6) 
08 A6 66 AZ 90 03C1 788 MOVB DAP$B_IAN(R7) ,XABS$B_IAN(R6) 
09 A6 «6F AZ) 90 O3C6 789 MOVB DAP$B_LAN(R7) ,XAB$B_LAN(R6) 
OA AG 70 A7 90 0 cB 790 MOVB § DAPSB-DAN(R7) .XABS$B_DAN(R6) 
13 A6 671 A?) «(90 «=—(03D 791 MOVB DAP$B_DTP(R7) ,XABSB_DTP(R6) 
OE A6 74 A7 00 0305 MOVL DAPS$L_RVB(R7) ,XABSL_RVB(R6) 
3C A6 78 A? DO O3DA 79 MOVL DAP$L_DVB(R7) ,XABSL_DVB(R6) 
0D A6 70 A? 90 O30F 94 MOVB §§ DAP$B~DBS(R7) . XABSB_DBS(R6) 
OC AA «67D A?) 90 «(O3E4 § 86795 MOVB DAP$B_IBS(R7) ,XABS$B_IBS(R6) | 
0B A6 =7E A? «(90 O3E9 79 MOVB DAP$B"LVL(R7), XABSB_LVL(R6) 
16 AG 7F A? 90 E 79 MOVB DAP$B_TKS(R7) ,XAB$B_TKS(R6) 
18 Aé 72 A? =B0 O3t £8 MOVW DAPSW_MRL(R7) ,XABSW_MRL (R6) 
O3F 00 ; 
Hi 4 ; Process the DAP NSG, 79S, and SIZ fields. | 
1 08 : Note: NTSDECODE_MSG guarantees that 0 < DAPS$B_NSG < 9. | 
F 05 ° | 
38 F $ PUSHL R8 3; Save register 
58 49 A 9A FA MOVZBL DAPS$B_NSG(R7),R8 ; Get # key segments | 
14 A6 38 90 FE 8 MOVB RB. XABSB_NSG(RG) : Update NSG field in XAB 
5C A? 8 40 09 MOVCS R8,DAP$B_SIZ(R7),- ; Copy 1 to 8 key size values 
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ILE 
UPDATE KEY XAB 


16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 p 
meets RT Ce eT Eee sa 

HABSB_§17(R6) 
ASHL 


MOVC3 RB Tab SU POS(R7),= 


pouble. hy count 
KABSW_ POS (R6) 
POPL 


“eey J}. key position values 
nasears register 


: Process the DAP KNM field. 


Get address of key name buffer 
Branch if no gy supplied 
Test writeabilit 
Branch on Pe liert 
“oer DAP key name string 

o 32 byte XAB buffer 


Bear eels 
PROBEW IFBSB_MODE(R9) ,#32,(R5) 
BEQ 0$ 


L 
MOVCS DAPSa KNM(R7) 
APSO _KNS RNR SCAT), - 
ooh #32 


: Set-up for next time thru. 


20$: DECB NWASB_KEYXABCNT(R7) 3; Reduce count of KEYXABs left. 
MOVL KABSL _NXT(R6) = : Save address of next KEYXAB ‘n chain 
NWA L~KEYXABAPR(R R7) (valid only if NWASB_KEYXABCNT > 0) 


30$: SCLRBIT WDAPSR _KEY_MSG,NWASL_MSG *MASK(R7); Check it off from List 
RSB 3 Process next DAP message 


19 
(12) 


4 


ref 


M 2 
NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 
v04-000 NTSDECODE_ALL = UPDATE ALL XAB $b 138 9:9 :58 CRMS.SRCINTOOPEN.MAR; 1 . Hf) 
| 
438 $8 -SBTTL NTSDECODE_ALL = UPDATE ALL XAB 
d : 40 ;++ 
438 41 ; An Allocation message has been received and decoded in the DAP control block. 
r ; 1 ; Update the next user Allocation XAB in chain. 
: 
" 4 te : Note: Multiple Allocation XABs are valid only for indexed files. | 
43B 846 * 
Oe B B47 NTSDECODE_ALL:: 3; Entry point | 
011C c?7) 95) «(0438 48 TSTB NWASB_ALLXABCNT(R7) ; Branch if there are more ALLXABs 
93 12 be F 49 BNEQ 10% ; _in chain 
009 31 0441 50 BRW 60$ ; Branch aid 
56 0100 C7? 00 ere} B34 10$: MOVL NWASL_ALLXABADR(R7),R6 ; Get address of next ALLXAB in chain 
0449 53 ; 
0449 Ha ; Process the DAP ALN field. | 
O4eg BSG | | 
0449 857 ASSUME DAPSK_ANY EQ 0 | 
0449 858 ASSUME DAPS$K~CYL EQ XABSC_CYL | 
0449 859 ASSUME DAPSK_LBN EQ XABSC_LBN 
ree 860 ASSUME DAP$K_VBN EQ XABS$C_VBN | 
09 A6 382644 AP7 90 =—(0449 B66 MOVB DAP$B_ALN(R7) ,XABSB_ALN(R6) 
ge ae 
044E 865 ; Process the DAP AOP field. | 
Ouce Be? | 
51 45 AZ 9A O044E 868 MOVZBL DAP$B_AOP(R7),R1 ; Get DAP AOP bits 
52 D4 «60452 «= 869 CLRL 2 : Clear RMS AOP bits | 
0454 870 SMAPBIT DAPSV_HRD,XABSV_HRD 3; Map HRD bit 
045¢ 871 SMAPBIT DAPSV~CBT¢. KABS_CBT : Map CBT bit 
0464 a76 SMAPBIT DAPS$V_CTG2,XABS$V_CTG ; Map CTG bit 
046C 87 MAPBIT DAP$V"ONC ,XABSV_ONC ; Map ONC bit | 
08 AA «652 90 0478 are MOVB R2,XAB$B_AOP(R6) 3; Update AOP field in XAB 
047 876 ; 
0478 B09 3; Process the DAP VOL, LOC, ALQ, AID, BKZ, and DEQ fields. 
ee 
OA A6 42 A7 BO 0478 880 MOVW #§DAP$W_VOL(R7),XABS$W_VOL (R6) 
OC A6 48 AZ DO 0470 881 MOVL DAP$L"LOC(R7) XABSL LOC (R6) 
10 A6 4C A? OD 48¢ : MOVL  DAPSL“ALQ2(R75,XABSC_ALQ(R6) 
17 A6 «650 A?) (90) «=—(048 | MOVB DAP$B_AID(R7) ,XAB$SB_AID(R6) 
16 A6 «651 AZ) 90 048C 4 MOVB DAP$B_BKZ(R7) ,XAB$B_BK2Z(R6) 
14 a6 52 a7 B80 491 : MOVW § DAPS$WIDEG2(R7S ,XABSQ_DEQ(R6) 
496 : 
496 8 ; If the DAP ALQ, BKZ, DEQ, or AOP fields are not explicitly returned in the | 
0496 89 ; Allocation message, they will be defaulted to values received in corresponding 
ise 30 : fields of the Attributes message. | 
496 892° | 
51 40 A7 3C 0496 38 MOVZWL DAP$W_ALLMENU(R7) ,R1 ; Get allocation menu field 
0551 05 EO 049A 89% BBS #DAPST_ALQ2,R1,208 : Ok if explicit value returned 
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E 19° 560-1386 90: 03:43 PAs vas Macro v04-00 
NTSDECODE_ALL = UPDATE ALL XAB -SEP-1984 16: RMS.SRCINTOOPEN.MAR; 1 

95 MOVL IFBSL_HBK(R9) ,- ; Default ALQ value 

3 yt ALQ(R6) ; 

97 20$ BBS #DAP$7_BKZ,R1,30$ ; Ok if explicit value returned 

98 MOVE  IFB$B_BKS(R9).- : Default BKZ value 

9 ts BKZ(R6) ; 

00 30$ BBS #DAPSV_DEQ2,R1,40$ : Ok if explicit value returned 
901 MOVW  IFBSW_BEG(R9),- : Default DEQ value 
ap8 XABSW_DEQ(R6) 3 
903 40S: BBs #DAPS$T_AOP,R1,50$ : Ok if explicit value returned 
904 BBC #F ABSV~CBT,FABSL_FOP(R8). 
905 SSETBIT Ay RS Rt geo hs H Map CBT bit 
an9 45$: BBC #FABSV_CTG,FABSL_FOP(R8), : 
90 SSETBIT #XABSV— _CTG,XABSB_AOP(R6); Map CTG bit 
$8 
ai9 3 3; Set-up for next time thru. 
912 ° 
313 50$: DECB NWAS$B Sai? teenie 3; Reduce count of AS Leces ten XABs left 
914 MOVL XABSL_NXT(R6) 3; Save address of next ALLXAB in chain 
915 NWASL— ALLXABABR(R7) (valid only if NWA$B NALEXABCNT > 0) 
318 60$: ech Reet WDAPER ALL_MSG,,NWASL _MSG. “MASK (RZ) check it off from list 
9 3; Process nex message 


p 1 | 
age 4) | 


] 
NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro V04-00 Page 22 | NTO 
v04-900 NTSDECODE_ALL_A = UPDATE ALL XAB grSEp=19 4 16:20:58 (CRMS.SRCINTOOPEN.MAR; 1 . (ff) | v04 
pe 918 -SBTTL NTSDECODE_ALL_A = UPDATE ALL XAB 
4DE 921 ;++ 
40E 9 ¢ ; An Attributes message has been received and decoded in the DAP control block. 
rtd 925 ; ieee the user Allocation XAB from the Attributes message (in Lieu of the 
4DE 924 ; Allocation message) because the remote FAL does not support the Allocation 
QO4DE 925 ; message. 
QO4DE 926 == 
O4DE 927 
O4DE 928 NTSDECODE_ALL_A:: ; Entry point | 
56 0100 C7 00 04D 929 MOVL NWASL_ALLXABADR(R7),R6 ; Get address of user ALLXAB 
Ree 930 BEQL ; Branch if none 
20 00c6 C7 91 «(04E5 = (931 CMPB = NWASB_ORG(R7) ,ANWASK_IDX; Do not update user ALLXAB 
35 13 OGEA O38 BEQL 10$ ; if ORG = IDX 
Q4EC 93 
O4EC 934 ; 
Beer tH ; Process the DAP FOP field. | 
O4EC 937 ; Note: The HRD and ONC bits are not mapped into the user AOP field because 
O4EC 938 ; the FOP field does not contain these. 
O4EC 939 ; 
O4EC 940 | 
51 64 AZ DO O4EC 941 MOVL DAP$L_FOP1(R7),R1 ; Get DAP FOP bits . 
52 D4) =«—(04F0 ac6 CLRL R2 ; Clear resultant AOP bits 
O4F2 94 SMAPBIT DAPS$V_CTG,XABSV_CTG ; Map CTG bit 
O4FA 944 SMAPBIT DAPS$V_CBT,XABSV_CBT ; Map CBT bit 
08 AA «652 «690 «(0502 ~«=«6945 MOVB R2,XAB$B_AOP(R6) ; Update AOP field in XAB 
0506 946 | 
0506 947 ; , 
0506 948 ; Process the DAP ALQ, BKS, and DEQ fields. 
0506 949 ; 
0506 950 
10 A6 4C AZ) DO 0506 = 951 MOVL DAP$L_ALQ1(R7) ,XABSL_ALQ(R6) 
16 A6 50 A7 90 0508 926 MOVB DAP$B_BKS(R7) ,XAB$B_BKZ(R6) 
14 A654 47 BO 0510 95 MOVW § DAPS$WIDEQ1(R7) ,XABS@_DEQ(R6) | 
Bees 
0515 956 ; Zero the XAB ALN, LOC, AID, and VOL fields because these are not obtainable 
0515 957 ; from the Attributes message. 
0515 958 ; 
0515 959 ; 
09 A6 «6094 «20515 = (960 CLRB KABS$B_ALN(R6) ; Zero these fields 
OC A6 DS 0518 961 CLRL XABSL_LOC(R6) 3 
17 A6 «6094 «=—051B oes CLRB XAB$B_AID(R6) : 
OA A6 =B4 (OSIE LRW XABS$W_ VOL (R6) poe 
05 0521 964 10$: RSB : Exit 


] 
¢ 5 
NIOOPEN NETWORK OPEN FILE 16-SEP=1984 00: AX/VMS Macro V04-00 Page 23. NTO 
v04=0 NTSDECODE_SUM = UPDATE SUM XAB =SEP=1984 rat: 03: $3 RMS.SR ch NTOOPEN. MAR; 1 “ Fy | v04 
968 «-SBTTL NTSDECODE_SUM = UPDATE SUM XAB 
368 +4 | 
5 898 3 A eget message has been received abd decoded in the DAP control block. 
Be ane ; _Update the user Summary XAB. 
§2 af6 
05 973 NTSDECODE_SUM:: : Entry point 
56 0118 C7 00 05 974 pov WYASL .SUAKABADR(R7) .RE ; Get address of user SUMXAB 
OF 13 OS 975 10$ : Branch if none 
0529 976 
529. 977 
529 978 ; Process the DAP NOK, NOA, and PRV fields. 
529 «979: 
0529 980 
09 AB 04 90 0529 981 MOVB DAP$B_NOK(R7) , XAB$B_NOK (R6) 
08 A6B «45 A7) 90 = 05 3 4 14 od DAP SBN OA(R7) ,XAB$B_ wo mate 6) 
OA AG 42 A7 BO 05 98 DAPS$W-PVN(R7) , XABSW-PVN(RO) 
0538 984 10$: SCLRBIT POAPSR. SUM MSG, NUASC. MSG -MASK(R7); Check it off from List 
05 O53 985 7 Process next DAP message 


NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro v04-00 Page 24 
v04-000 NTSDECODE_TIM = UPDATE DAT XAB = $FEn 1 382 13:90:88 RMS .SRCINTOOPEN.MAR; 1 (46) 
2 : $88 -SBTTL NTSDECODE_TIM = UPDATE DAT XAB 
+ fae ; 3 ++ : 
53F 990 ; A Date and Time message has been received and decoded in the DAP control 
53F 991 ; block. Update both the user Date and Time XAB and the Revision Date and Time 
O53F 336 ; XAB as appropriate. 
B2 F 993 ;-- 
53F 0-994 
O53F 995 NTSDECODE_TIM:: 3; Entry point 
OS3F 99 
OS3F 997 ; 
82 F 998 ; First update the Date and Time XAB if present. 
BB 
56 0104 C7 0 O53F 190) MOVL NWASL_DATXABADR(R7),R6 ; Get address of user DATXAB 
1F 0 6130 «(0544 «(1 8 BEQL 10$ ; Branch if none 
0546 100 
0546 1004 ; 
0546 1005 ; Process the DAP CDT, RDT, EDT, BDT, and RVN fields. 
0546 1006 ; 
0546 1007 
48 A7 7D 0546 1008 mMOVQ DAP$Q_CDT(R7),- ; Copy creation date and time 
14 Ab 0549 1009 XAB$Q_COT(R6) ; _binary value to XA 
50 A? 7D 0548 1010 mMOVQ DAP$Q_RDT(R7),- ; Copy revision date and time 
OC A6é 054E 1011 XAB$Q_RDT (RO) ; binary value to XA ; 
58 A?) 37D 8238 1ot8 MOVQ DAP$Q_EDT(R7),- ; Copy expiration date and time 
1C A6 0553 101 XAB$Q_EDT(R6) ; binary value to XA 
42 A? =BO «20555 «(1014 MOVW DAPS$W_RVN(R7) ,- ; Store revision number value in XAB 
08 A6 0558 1015 XABSW_RVN(R6) 3 3 : . 
01 A6 91 QO55A 1016 CMPB XABSB_BLN(R6) ,- ; Branch if length of XAB is too smail 
2c 055D 1017 #XABST_DATLEN i: to contain BOT field (i.e., it's a 
05 fF OS5E 1018 BLSSU _10$ : V2 Length XAB) ; 
60 A? 7D 0560 1019 MOVQ DAP$Q_BDT(R7),- ; Copy aay date and time 
24 Ab 0563 1020 XAB$Q_BDT(R6) ; binary value to XAB 
0565 1021 
0565 19s¢ ; ee ; : 
0565 1023 ; Next update the Revision Date and Time XAB if present. 
Ose8 1095 
56 0114 C7 DO 0565 1026 108: MOVL NWASL_RDTXABADR(R7),R6 ; Get address of user RDTXAB 
OA 13 Q56A 1027 BEQL 208 ; Branch if none 
056C 158 
056C 196 3 , 
056C 1030 ; Process the DAP RDT and RVN fields again. 
056C 1031 ; 
056C 1938 : 5 
50 A? =7D 056C 103 MOVQ DAP$Q_RDT(R7),- ; Copy revision date and time 
OC A6 OS6F 1034 XABSQ_RDT (RG) ; _binary value to XAB : 
42 A? BO 0571 1035 MOVW DAPS$W_RVN(R7) ,- ; Store revision number value in XAB 
08 A6 b2u8 1938 XABSW_RVN(R6) 3 
0576 1038 20$: SCLRBIT #DAPSK_TIM_MSG,NWASL_MSG_MASK(R7); Check it off from List 
05 057C 1039 RSB ; Process next DAP message 
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NTOOP NETWORK OPEN FILE 16-SEP-1984 00:03:45 VAX/VMS Macro V04-00 Page 25 NTO 
e000 NTSDECODE_PRO = UPDATE PRO XAB mets yi 93:98:88 RMS. SRCIN TOoP EN.MAR; 1 . (17) v04 
57D 1041 -SBTTL NTSDECODE_PRO - UPDATE PRO XAB 
a7} 1be8 s+ 
57D 1044 : *h Protection message has been received and decoded in the DAP control block. 
b270 1045 ; _Update the user Protection XAB. 
57D 1 6 i- 
57D i 
57D 1048 NTSDECODE_PRO:: ; Entry point 
56 0110 C7 9 57D 1049 nov VL _NWASL_PROXABADR(R7),R6 : Get address otf user PROXAB | 
y Bb bees 1050 EQL ; Branch if n 
OC AB OG S283 192) frRt XABSL_UIC(R6) ; Set UIC to “default value 
0387 198 ; : 
0587 1054 ; Process the DAP OWNER field. 
0587 1055 ; 
0587 1056 
54 48 A7 7D 0587 1057 MOVQ DAP$Q_OWNER(R7) ,R4 ; Get descriptor of ASCII string | 
58 8F 65 91 0588 1058 CMPB (R5) ,P*A\C\ ; Branch if string does not begin 
4C 12 Q58F 1059 BNEQ 30$ ; _with bracket 
5D 8F FF A544 91 0591 1060 CMPB “1(R5)CR4],#*A\I\ ; Branch if oerine does not end 
44 12 0597 1061 BNEQ 30$ 3; with bracket 
54 92 C2 0599 1006 SUBL2 #2,R4 ; Discard brackets 
55 D6 O59C 106 INCL R5 : 
65 54 2C 3A OS5S9E 1064 LOCC M*A\,\R4, CRS) ; Locate group-member delimiter 
39 13 Q5SA2 1065 BEQL 30$ 3; Branch on failure 
54 51 55 C3 OSA4 1066 SUBL3 = R5,R1,R4 ; <R4,R5> => group string 
50 D7 O5A8 1067 DECL RO ; <RO,R1> => member string 
51 D6 O5SAA 1068 INCL R1 : 
7E 0&4 Q5AC 1069 CLRL -(SP) ; Allocate space from stack 
5E OD OQS5AE 1070 PUSHL SP ; Address of result 
51 DD 0580 1071 PUSHL Ri ; Address of input string | 
50 OD 0582 1072 PUSHL RO ; Size of input strin 
00000000'GF 03 FB Q5B4 1073 CALLS #3,G*FILSCVT_OTB ; Conwert octal string to binary 
D50 €9 Q5BB 1074 BLBC RO,2 ; Branch on failure 
OC A6 66E~ BO 8286 1075 MOVW (SP) , XABSW _MBM(R6) 3; Update member UIC value in XAB | 
5E DD O05C2 1076 PUSHL SP ; Address of result 
55 DD O5C4& 1077 PUSHL R5 ; Address of input string 
54 DD 05C6 1078 PUSHL R4 ; Size of input string 
00000000'GF O03 FB QO5C8 1079 CALLS #3,G*FILSCVT_OTB ; Convert octal string to binary 
650 €9 OQOSCF 1080 BLBC RO,10$ ; Branch on failure 
OE A6 6€ BO OQO5D2 1081 MOVW (SP) ,XABS$W_GRP(R6) g uprere group UIC value in XAB 
03 05D6 1086 BRE 208 : has been successfully converted 
05D8 1083 10$: CLRW XABSW_MBM(R6) GRP is invalid, so also discard MBM 
0508 1? 4 208: CLRL (SP)+ ; Deallocate space from stack 
at 
bap 1087 ; Process the DAP PROSYS, PROOWN, PROGRP, and PROWLD fields. 
Q50D 1088 ; 
05DD 1089 
B28 1090 30$: INSV DAP$W =PROSYS (RT) 080. #4,R0 ; Map system bits 
OSE3 1091 INSV DAPSW_PROOWN(R7) 44,84, “RO : Map owner bits 
O5E9 1038 INSV DAP$W_PROGRP(R7) ,#8,44 ;RO_: Map group bits 
OSEF 109 INSV DAPSW PROWLD(R7) #1208, RO: Map world bits | 
OSF5 1094 MOVW XABSW_PRO(R6) Updat protection mask in XAB 
uate 1095 40S: + ata PDAS *PRO. RAS NWASL._ MSG. MA K(R?) © Check it off from List 
SFF 1096 RSB 3 Process next DAP message 
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7:20:58 CRMS.SRCINTOOPEN.MAR; 1 


partner. 


: Entry point 

; Ignore NAM pessege if it does not 
; _contain a full filespec string 

; Get descriptor of resultant name 
; Store it in quoted string buffer 


3 flag receipt of resultant name string 
i Exi 


NETWORK OPEN FILE 1 ~$6P-1984 00: 
NTSDECODE_NAM = UPDATE RESULTANT NAME “SEP-1984 16 
9 09 1098 -SBTTL NTSDECODE_NAM = UPDATE RESULTANT NAME 
8 Be 1100 ;++ 
00 1101 ; Process (resultant) Name message from 
0 4 11 ¢ i-- 
0600 11 
0600 1104 NTSDECODE_NAM:: 
0600 1105 BBC #DAPSV_FILSPEC,- 
0 be 1196 Hrbs Rope HALTER 
0605 1107 MOVQ DAPSQ"NAMESPEC(R7),R 
0609 1108 RO,FWASQ QUOTED(R10) 
9 OE 1109 MOVC3 RO, (R1),aFWASQ QUOTED 
14 1110 SSETBIT #FWASV_REMRESULT, (R10 
0618 1111 108: RSB 
0619 111¢ 
0619 111 END 


3; End of module 


NTOOPEN 
Symbol table 
$$.PSECT_EP 
SSCOUNT 
SSRMSTEST 


S$SRMS_PBUGCHK 
$SRMS~ TBUGCHK 
RMS ~UMOD 


DA 
DAP$B_CMPFUNC 
DAP$B_DAN 
DAPS$B_DATATYPE 
DAPSB_ 
DAP$B_DCODE_MSG 
DAPS$B_DTP 


DAP$B_ 
DAPSB_NAMETYPE 


DAP$BS1Z 
DAP$B_S1Z_ TMP 
DAPSB~STREAMID 
DAPSB~TKS 
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K 
DAPSK-DATATYP_D 
DAPSK~F IX 
APS$K~10X 


DAPSK_STM 
DAPSK-STMCR 
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Symbol table eet 7 9:95:88 ERNS SRCINTOOPEN- MAR: 1 . 8) 
DAPSM_D = 0000 DAP$V_DEQ2 = 0 | 
DAPSM_DSP_3NAM = i 00 DAP$V_DSP_ALL = 200002 
DAPSM_DSP-ATT : 1 DAP$V-DSP-KEY = 0 
DAPSM_EMBEDDED = 00000 18 DAPSV_DSP_NAM = 3 38 
DAP$M_FOP1 = 99 100 DAP$V_DSP~PRO = 0 
DAPSM_F TN = 000 0 01 DAP$V-DSP~ SUM = 99000 3 
DAPSM_GET = 0000000 DAPS$V-DSP_TIM = 00000004 
DAP$M~GO = 0000001 DAP$V~DU = 00000000 
DAPSM_ IMAGE = 0000000 DAP$V~EMBEDDED = 9000004 
DAPSM_LOAD = 90900001 APSV-FCS = 00000031 | 
DAPSM_LOADIM = 00000001 DAPSV-FILSPEC = 00000000 
DAPSM_LSA = 900004 DAP$V—F SZ = 9000008 
DAPSM-MACY11 = 08 APSV=F = 000000 
DAPSM_MRS = 0000002 DAP$V_GEQ_V56 = 00000024 
DAPSM_MSE = 00000010 APSV-HR = 00000000 
DAPSM_NONF ATAL = 00000001 DAP$V_NUL_CHR = 9000000¢ 
DAPSM—~ORG = 00000002 APS$VON = 0000000 
DAP$M_PRN = 00000004 DAPS$V_PRN = 00000002 
DAPSM_RAT = 00000008 DAP$V-RCK = 0000000F 
DAPSM~RET_CRC = 00000008 DAP$V~STM_ONLY = 90000032 
DAPSM_RFM = 00000004 DAPS$V_VAXELAN = 0000003 
DAPSM_ SEGMENT = 00000040 DAPS$V_VAXVMS = 00000034 
DAPSM_SSP_FLG = 00000002 DAP$V~WCK = 0000000€ 
DAPSM_SYSPEC = 99900026 DAP$W~ALLMENU 00000040 
DAPS$M_TMP1$ = 00000020 DAPS$W-BLS 00000048 
DAPSM_TMP2$ = 000000C0 DAP$W_CHECK 00000042 
DAPSM_TMP3$ = 00020000 DAP$W-DEQ1 00000054 
DAPSM~TMP4$ = 01000000 DAP$W_DEQ2 00000052 | 
DAPSM_TMPS$ = F0000000 DAPSW-DFL 00000044 | 
DAP$M_ZERO = 00000080 DAP$W_DISPLAY1 0000004¢ 

P$Q~ADT 00000070 DAPSW-FFB 00000072 
DAP$Q"BDT 00000060 APSWIFL 00000046 
DAP$Q~CDT 00000048 DAP$W-LRL 00000070 
DAP$Q~DCODE_FLG 00000000 DAPSU-ARL 00000072 | 
DAP$Q"EDT 00000058 APSW_MR 0000004A 
DAP$Q~F ILESPEC 00000044 DAPSW~PARTNER 00000006 
DAPSQ~ 00000064 P$W~POS 0000004C | 
DAP$4_"SG_BUF1 90000008 DAP$W~POS_TMP 0000004A | 
DAP$O_MES  QUF2 9000001 DAP$W~PROGRP 00000054 
DAP$Q_NAMES?PEC 00000044 DAP$W~PROMENU 00000040 | 
DAP$Q_OWNER 00000048 DAP$W_PROOWN 90000058 
DAP$Q~ PASSWORD 0000050 DAP$W-PROSYS 0000005 
DAP$Q~PDT 0000068 DAP$W~PROWLD 00000056 | 
DAP$Q~RDT 690000 0 W~PVN 99000042 | 
DAP$G_~RUNSYS 000005¢ DAPS$W_RVN 000004 | 
DAP$Q~SYSPEC 90000058 DAPS$W_SSP_MENU 00000080 
DAP$V~ALQ2 = 900000 DAP$W~SUMENU 00000040 
DAP$V_AOP = 9900 00¢ DAPS$W-TIMENU 00000040 
DAP$V~BK = 0000000 DAP$W_VERSION 0090004 
DAP$V~BLK = 9900003 DAP$W-VOL 0000042 | 
DAP$V_CRT = BO08 1 DECODE_NXT_ALL BO08 $f R 01 
DAP$V~CBT2 = 0000 902 DECODENXT—KEY 0000257 R 01 
DAP$V~CHG = 00000001 DONE 9999 85 R 01 | 
DAP$V~CR = 00000001 FABSB_FAC = 00 6 16 | 
DAP$V~CTG = 6 0 07 FABSB~F SZ = 0000003F | 
DAP$V~CTG2 = 00000001 F ABSB ORG = 999001 
DAP$V~DEQ1 = 00000008 FABSB-RAT = 0000001E 
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Symbol table ~3Eb=138e 93:90:88 RMS.SRCINTOOPEN.MAR; 1 58) | 
FABSB_RFM = 0000001F 1FBSW_DEQ = 0000006 | 
FABSC_F IX = 00000001 IFBSW-LRL = 9 | 
FABSC_1DX = 0000 IFBSW_MRS = 9 | 
FABSC_REL s 9 LOOP 000225 R o1 | 
FABSC_SEQ = 00000 9 LOOP1 0000220 R 1 
FABSC-STM = 00000004 LOOP2 0000245 R 01 | 
FABSC_STMCR = 000° 18 NT$BUILD_HEAD eeeeenee =X 01 
FABSC_STMLF = 99000 NTSBUILD-TAIL aeeneere =X 01 | 
F ABSC_UDF = 0 NTSCRC_IRIT atereree X 01 | 
FABSC_VAR = 9 00000 NTSCVI BN4 EXT atereeee =X 01 
FABSL TOP = 09000004 NISDECODE-ALL_A gogg0¢0e RG Ot | 

= 
FABSL_MRN = §6000038 NTSDECODE-KEY™ 55000395 RG 61 
FABSM_CBT = 00200000 NTSDECODE_NAM 00000600 RG = 01 
FABSM_CTG = 90100000 NTSDECODE_ PRO 0000057D RG = 01 
Ff ABSM_KFO = 40000000 NTSDECODE~ SUM 900005¢ RG 01 
FABSM_RCK = 00800000 NTSDECODE-TIM 0000053F RG 01 
F ABSM_UFO = 00020000 NTSEXCH_ CRF aeeeezee =X 01 | 
FABSM_WCK = 00000200 NTSGET_FAC_SHR eeeteneer§ X 01 
FABSV_BIO = 00000005 NTSGET_FILESPEC aeexenee = X 01 
F ABSV_BLK = 00000003 NTSLCL_FOP eeeeeeee = X 01 
FABSV-CBT = 00000015 NTSMAP"DEV_CHAR eeeveree XO | 
FABSV_CR = 00000001 NTSMAP_FOP atereeee = X 01 
FABSV_CTG = 00000014 NTSMOD-RAT 00000366 RG 01 
FABSV_F IN = 00000000 NTSOPER 00009000 RG = «01 
F ABSV_KFO = 90000016 NTSRECEIVE aeaeeeee =X 01 
FABSV_NFS = 0000001 NTSRECV_EXT_ATT 000001F1 RG 01 
F ABSV_PRN = 44 F4 NTSSCAN_NAMBLK eeeeeeee =X 01 
FABSV_RCK = 0000001 NT$SCAN-XABCHN aeeneere = X 01 
F ABSV_UFO = 00000011 NTSTRANSMIT teeneeee = X 1 
FABSV_WCK = 00000009 NTSUPDATE FHC 00000315 RG 01 
ABSW_BLS = 0000003C NWASB_ALLRABCNT 0000011C 
FABSW DEQ = 00000014 NWASB_DAP_RA 000000C9 
FAC B QOOOO1AF R 01 NWASB_FILESYS 000000C5 
FAIC 00000288 R 01 NWASB_KEYXABCNT 0000011D 
FAILI 00000033 R 01 NWASB_NETSTRSIZ 0000016F 
FAIL 00000130 R 01 NWA$B_NODBUF S1Z 00000168 
FAIL QOOOO01AE R 01 NWASB_ORG 000000¢6 
FAIL_FOP 0000013E R 01 NWASB_OSTYPE 000000C4 
FILStVT_ OTB eeeeereer = X 01 NWASB_RFM 000000C7 
FWASQ_QUOTED = 0000017 NWASB_RMS_RAC 000000C8 
FWASV_REMRESULT = 0000003 NWASC_ 00000800 | 
let-tat = $3998 monet seeeeer | 
1FBSB_F SZ = $00008F NWASK—S s $6000000 | 
IF B$B_MODE = 0000000A NWASL_ALLXABADR 00000100 
1F B$B_ORGCASE = 9000025 NWASL_DATXABADR 00000104 
1FBSB_RAT = 00000051 NWASL_DEV 000000C0 | 
1F B$B_RFMORG s 9000005 NWASL—FHCXABADR 0000108 
IF BSL_DEVBUF S1Z = 0000004 NWASL_KEYXABADR 000010¢ | 
IF BS$L_HBK . 990007 NWASL_MSG 00000D4 
IFBSL_NWA_PTR = 0000003C¢ NWASL ~PRORABADR 9900110 
1FBSS_ORG = 00000004 NWASL_RDTXABADR 00000114 | 
IFB$V~B10 = 9000 5 WASL-SAVE_FL 000 128 | 
1FB$V_BRO = 8 000006 NWASL~SUMXABADR 00001 
IFB$V~DAP_OPEN = 90000 D NWASL THRE 90000F 
IF BSV~ORG = 00000004 NWASL-XLTATTR 00000238 
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NWASL_XLTBUFFLG 0 0 ¢ XABSB_AID = 00000017 
NWASL _XLTCNT ABSB_ALN = 00000009 | 
NWASL XL TMAX INDX 4 ABS$B-AOP = 08 
NWASL-XLTSIZ 9 0 XABSB-ATR = 000 | 
NWASQ-ACS 44 XABS$B_BKZ = 0 16 
NWASQ BI GBUF 0 0 7 XABSB_BL = 999 01 
NWwASQ~BLD 900008 XABSB_DAN = 00 O0A 
NWASQ—FLG 00 9 XABSB_DBS = 0000000D | 
A$Q_ INODE 99090 XABSB_DTP = 00000013 | 
NWASQ_10SB 000000 XABSB_FLG = 90000012 
A$SQ"LNODE 9000016 XABSB_HSZ = 0000001 
NWASQ—LOGNAME 99000 C XABSB_IAN = 9900008 
NWASQ "NCB 0000264 XABSB_IBS = 0000000C 
NWASQ-RCV 00000 £0 XAB$B_LAN = 00000009 
NWASQ~SAVE_DESC 00000120 XAB$B_LVL = 69000008 
NWASQ_XLTBOF 1 0000024¢ XABSB_ = 0000000 
NWASQ~XLTBUF 2 00000254 XAB$B_NOK = 00000009 
“xXMT 000000E8 XABSB_NSG = 00000014 | 
NWAST—ACSBUF 9000026¢ XABS$B_NUL = 00000015 
NWA$T—AUXBUF 000005E0 XABSB_REF = 00000017 
“DAP 00000000 XABSB_RFO = 00000008 
NWA$T— INODEBUF 000004AC XAB$B_S1Z = 0000002E | 
NWAST-ITM_ATTR 00000200 XABSB_TKS = 00000016 
NWAST—1TM_END 00000224 XABSC— = 00000001 
NWAST_ITM“LST 00000200 XABSCDATLEN = 0000002 
AST—1TM~MAXINDX 00000218 ABSC"LBN = 9000000¢ 
NWAST-ITM-STRING 0000020 XABS$C~VBN = 0000000 
NWAST_NCBBUF 0000052¢ XABSL—ALQ = 00000010 
NWAST~NODEBUF 00000169 XABSL_DVB = 0000003 
NWAST~RCVBUF 9000010 XABSL_EBK = 00000010 
NWAST~SCAN 00000100 XABSL~HBK = 0000000 
NWAST~ TEMP 00000120 XABSL_KNM = 00000038 
NWAST—XLTBUF 1 000002AC XAB$L~LOC = 0000000 
NWAST_XLTBUF 2 00000 ac XABSL NX = 00000004 
NWAST—XMTBUF 000003¢ XABSL_RVB = 9000000 
NWASV~LAST_MSG = 00000000 XABSL~SBN = 0000002 
NWASV~NODE CODE = 0000000 XABSL_UIC = 0000000C | 
NWASW~BUILD 000000D XAB$Q_BDT = 00000024 
NWASW~DAPBUF S1Z 000000CA XABS$Q"CDT = 00000014 
NWASW_DIR_OFF 000000CC XABSQ~EDT = 0000001C 
NWASW"DISPLAY 00000000 XABSQ"RDT = 9000000¢ | 
NWASW-FIL_OFF 900000cE XABSV~CBT = 0000000 
NWASW” JNLRABJOP 000 orlt XABSV_CHG = 00000001 
OPEN_OPDATc_FAB 9000028 R 1 XABSV~CTG = 99900007 
PARTT 00050 R 1 XABS$V~DUP = 00000000 
PART2A 9000007 R 01 XABSV~HRD = 99000000 
PART2B 0000090 R 01 XABSV NUL = 00000002 | 
PART 000000CB R oi XABSV~ONC = 00000001 | 
PIOSA_TRACE eereeree X 01 XABSW~DEQ = 99000014 | 
RECV_ACK 9000197 R 01 XABSW~DFL = 99001¢ 
RECV-ATT 0141 R 01 XABSW~DXQ = 0000001A | 
RECV-EXT_ATT 0 oie R 01 XABSW FFB = 9900014 | 
RECV~NAM 000183 R 1 XABSW~GRP = 00 OE | 
SEND~ACC 900 OED R 1 XABSWIFL = 00 0 1A 
SEND_ATT 00 4A R 1 XABSW_LRL = 00 fA 
SUC 000001A7 R 01 XABSW" MBM = 909 C 
TPTSL_NTOPEN eeeeeeee§ = X 01 XABSW"MRL = 00000018 


NTOOPEN NETWORK OPEN FILE 16-SEP-1984 00:03:45 
Symbol table o7 SE 1 obec 99 :95;88 
XABSW_MRZ = 18 
sh 8! 1 F 
XABSW_PRO = 
Su = & 
XABSW_RVN = 00000008 
Sue = 0000000A 
$wrewres ener on emnaae + 
: Psect synopsis ! 


PSECT name Allocation PSECT No. Attributes 


- ABS. 00000000 0.) 00 ¢ QO.) NOPIC uUSR CO 
NF SNE TWORK 00000619 ( 1561.) O01 ¢ 1.) PIC USR CO 
SABS$ 00000800 ( 2048.) 02 ¢ 2.) NOPIC uUSR (CO 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00.10 00:00:01.08 
Command processing 106 00:00:00.56 BR RR 02-2) 
Pass 1 479 B3 708: 61+ ge 00:00:56.48 
Symbol table sort 0 00:00:02.56 00:00:05.86 
Pass 2 207 00:00:04.44 00:50:11.66 
Symbol table output 54 00:00:00.40 88:80: 05°83 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 8 00:00:00.00 00:00:00.00 
Assembler run totals 87 00:00:29.46 00:01:21.27 


The working set Limit was 1650 pages. 
112810 bytes (221 pages) of virtual memory were used to buffer the intermediate code 


1113 source Lines were read in Pass 1, produc ing 18 object records in Pass 2 
41 pages of virtual memory were used to define 40 macros. 


TOS SS OO ee 


Macro library name Macros defined 


.$255$DUA28: (RMS .OBJJRMS.MLB; 1 32 
$255$DUA28: (SYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 36 


2157 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOOPEN/OBJ=OBJ$:NTOOPEN MSRC$:NTOOPEN/UPDATE=(ENH$:NTOOPEN) +LIB$:RMS/LIB 


N ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
N REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
N ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


There were 90 pages of symbol table space allocated to hold 1711 non-local and 88 local symbols. 
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